home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / klima 64_a (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  365 lines
  1. 1 IFPEEK(56)<>143THENPOKE56,143:POKE52,143:CLR:LOAD"HARDCOPY",8,1
  2. 2 :
  3. 10 REM ************************
  4. 12 REM * KLIMA 64 VERSION 2.0 *
  5. 14 REM * MATTHIAS KRIESELL    *
  6. 16 REM * OSTPREUSSENSTRASSE 6 *
  7. 18 REM * 3057 NEUSTADT A.R.   *
  8. 20 REM * TEL.: 05032/5880     *
  9. 22 REM ************************
  10. 24 :
  11. 100 REM *** M-ROUTINEN ****************
  12. 102 IN=49152:CL=49397:AN=49460
  13. 104 AU=49479:PR=50688:PL=50746
  14. 106 LI=50761:CH=49254:FO=2159
  15. 108 :
  16. 200 REM *** INITIALISIEREN ************
  17. 202 SYS49152:REM PR.I/O AKTIVIEREN
  18. 204 C1$=CHR$(13):C2$=CHR$(20)
  19. 206 OP$="DATEN,L,"+CHR$(38)
  20. 208 QW=255:DIMQQ$(QW)
  21. 210 DIMT(12),N(12),R(12),MO$(12)
  22. 212 FORI=1TO12:READMO$(I):NEXT
  23. 214 Z$=CHR$(0)
  24. 216 H4$="[197]RFA\TE [207]RTE AUSGEBEN"
  25. 218 XL=174:XH=175:YA=176:Z=130
  26. 220 BW$="[194]ITTE W@HLEN [211]IE:"
  27. 222 C$(0)="                                                            "
  28. 224 C$(1)="      "
  29. 226 POKE650,128
  30. 900 REM *** ERSTE INDIZIERUNG *********
  31. 902 OPEN1,8,15:SV=0:GOSUB7020
  32. 904 :
  33. 1000 REM *** HAUPTMENU ****************
  34. 1002 GOSUB7000
  35. 1004 SYSPR,132,4,"[200]AUPTMENU"
  36. 1006 SYSPR,115,7,BW$
  37. 1008 SYSPR,101,9,"1) [203]LIMAWERTE EINGEBEN"
  38. 1010 SYSPR,100,11,"2) [203]LIMADIAGRAMM ERSTELLEN"
  39. 1012 SYSPR,100,13,"3) [200]ILFSPROGRAMME"
  40. 1014 SYSPR,100,15,"4) [208]ROGRAMM BEENDEN"
  41. 1016 A=17:W$="4":GOSUB8050
  42. 1018 ONAGOTO2000,3000,1200,1100
  43. 1020 :
  44. 1100 REM *** PROGRAMM BEENDEN *********
  45. 1102 GOSUB7000
  46. 1104 SYSPR,112,4,"[208]ROGRAMM BEENDEN"
  47. 1106 A=7:GOSUB8070:IFNOTATHEN1000
  48. 1108 GOSUB7060
  49. 1110 CLOSE1:POKE53281,0:PRINT"[144][147]":SYSAU:SYS64738
  50. 1112 :
  51. 1200 REM *** HILFSPROGRAMME ***********
  52. 1202 GOSUB7000
  53. 1204 SYSPR,118,4,"[200]ILFSPROGRAMME"
  54. 1206 SYSPR,115,7,BW$
  55. 1208 SYSPR,101,9,"1) [203]LIMAWERTE AUSGEBEN"
  56. 1210 SYSPR,100,11,"2) [203]LIMAWERTE @NDERN"
  57. 1212 SYSPR,100,13,"3) "+H4$
  58. 1214 SYSPR,100,15,"4) [196]ATEI AKTUALISIEREN"
  59. 1216 SYSPR,100,17,"5) [193]NDERE [196]ATENDISKETTE INDIZIEREN"
  60. 1218 SYSPR,100,19,"6) [206]EUE [196]ATEI ANLEGEN"
  61. 1220 SYSPR,100,21,"7) [218]UR^CK ZUM [200]AUPTMENU"
  62. 1222 W$="7":A=23:GOSUB8050
  63. 1224 ONAGOTO1300,1350,1400,1250,1270,1500,1000
  64. 1226 :
  65. 1250 REM *** DATEI AKTUALISIEREN ******
  66. 1252 GOSUB7000
  67. 1254 SYSPR,108,4,"[196]ATEI AKTUALISIEREN"
  68. 1256 GOSUB7080
  69. 1258 GOTO1200
  70. 1260 :
  71. 1270 REM *** ANDERE DISKETTE **********
  72. 1272 GOSUB7000
  73. 1274 SYSPR,92,4,"[193]NDERE [196]ISKETTE INDIZIEREN"
  74. 1276 GOSUB7060
  75. 1278 GOSUB7020
  76. 1280 GOTO1200
  77. 1282 :
  78. 1300 REM *** AUSGABE ******************
  79. 1302 GOSUB7000
  80. 1304 SYSPR,105,4,"[203]LIMAWERTE AUSGEBEN"
  81. 1306 GOSUB7130:IFD=0THEN1200
  82. 1308 GOSUB2100
  83. 1310 GOSUB8080:GOTO1200
  84. 1312 :
  85. 1350 REM *** AENDERN ******************
  86. 1352 GOSUB7000
  87. 1354 SYSPR,110,4,"[203]LIMAWERTE @NDERN"
  88. 1356 GOSUB7130:IFD=0THEN1200
  89. 1358 GOSUB2100:GOSUB2200
  90. 1360 GOSUB2400:GOTO1200
  91. 1362 :
  92. 1400 REM *** ORTE AUSGEBEN ************
  93. 1402 I=0
  94. 1404 GOSUB7000
  95. 1406 SYSPR,101,4,"[197]RFA\TE [207]RTE AUSGEBEN"
  96. 1408 IFQQ=0THENSYSPR,0,7,"[203]EINE [207]RTE ERFA\T.":GOSUB8000:GOTO1200
  97. 1410 I=I+1:SYSPR,0,6+I-INT((I-1)/10)*10,QQ$(I):IFI=QQTHEN1420
  98. 1412 IFINT(I/10)<>I/10THEN1410
  99. 1414 I=I+1:SYSPR,160,6+I-INT((I-1)/10)*10,QQ$(I):IFI=QQTHEN1420
  100. 1416 IFINT(I/10)<>I/10THEN1414
  101. 1418 POKEYA,20:GOSUB8080:GOTO1404
  102. 1420 POKEYA,20:GOSUB8080:GOTO1200
  103. 1422 :
  104. 1500 REM *** DATEI ANLEGEN ************
  105. 1501 GOSUB7000
  106. 1502 SYSPR,110,4,"[206]EUE [196]ATEI ANLEGEN"
  107. 1503 GOSUB7060
  108. 1504 GOSUB7000
  109. 1505 SYSPR,110,4,"[206]EUE [196]ATEI ANLEGEN"
  110. 1506 SYSPR,0,7,"[194]ITTE LEGEN [211]IE EINE FORMATIERTE [196]ISKETTE IN"
  111. 1508 SYSPR,0,9,"[204]AUFWERK #0. [196]IESE [196]ISKETTE WIRD EINE K^NFTIGE"
  112. 1510 SYSPR,0,11,"[196]ATENDISKETTE."
  113. 1512 SYSPR,0,13,"[198]ERTIG"
  114. 1514 GOSUB8030:IFNOTATHEN1200
  115. 1516 PRINT#1,"I":GOSUB8010:IFA<>0THENCLR:RUN
  116. 1518 PRINT#1,"M-R"+CHR$(250)+CHR$(2)+CHR$(3):GET#1,A$,B$,B$
  117. 1520 A=ASC(A$+Z$)+256*ASC(B$+Z$)
  118. 1522 IFA>200THEN1534
  119. 1524 SYSPR,0,16,"[193]UF DER EINGELEGTEN [196]ISKETTE IST NICHT"
  120. 1526 SYSPR,0,18,"MEHR GEN^GEND [211]PEICHERRAUM VORHANDEN."
  121. 1528 SYSPR,0,20,"[193]NDERE [196]ISKETTE PROBIEREN"
  122. 1530 GOSUB8030:IFNOTATHENCLR:RUN
  123. 1532 GOTO1500
  124. 1534 OPEN2,8,2,OP$
  125. 1536 PRINT#1,"P"+CHR$(2)+CHR$(QW)+Z$+Z$
  126. 1538 INPUT#1,A,A$,A1,A2:IFA<>0THEN1546
  127. 1540 SYSPR,0,16,"[193]UF DER EINGELEGTEN [196]ISKETTE BEFINDET SICH"
  128. 1542 SYSPR,0,18,"BEREITS EINE '[203]LIMA 64'-[196]ATEI."
  129. 1544 GOTO1528
  130. 1546 SYSPR,0,16,"[194]ITTE WARTEN..."
  131. 1548 PRINT#2,CHR$(255)
  132. 1550 CLOSE2:INPUT#1,A,A$,A1,A2:CLR:RUN
  133. 1552 :
  134. 2000 REM *** WERTE EINGEBEN ***********
  135. 2002 GOSUB7000
  136. 2004 SYSPR,110,4,"[203]LIMAWERTE EINGEB[138]N"
  137. 2006 OT$=""
  138. 2008 FORI=1TO12:T(I)=0:N(I)=0:NEXT
  139. 2010 GOSUB2100:GOSUB2200
  140. 2012 GOSUB7000
  141. 2014 SYSPR,110,4,"[203]LIMAWERTE EINGEBEN"
  142. 2016 SYSPR,0,7,OT$+" ERFASSEN"
  143. 2018 GOSUB8030:IFNOTATHEN1000
  144. 2020 QQ=QQ+1:D=QQ:GOSUB2400:GOTO1000
  145. 2022 :
  146. 2100 REM *** FORMULAR *****************
  147. 2102 SYSPR,0,7,"[207]RT:"+OT$
  148. 2104 SYSPR,2,9,"[205]ONAT         [212]EMP.":SYSPR,113,9,"[206][196]."
  149. 2106 SYSLI,0,69,155,69
  150. 2108 SYSLI,0,81,155,81
  151. 2110 SYSLI,0,189,155,189
  152. 2112 SYSLI,0,69,0,189
  153. 2114 SYSLI,67,69,67,189
  154. 2116 SYSLI,111,69,111,189
  155. 2118 SYSLI,155,69,155,189
  156. 2120 FORI=1TO12
  157. 2122 SYSPR,2,10+I,MO$(I)
  158. 2124 SYSPR,69,10+I,MID$(STR$(T(I)),2)
  159. 2126 SYSPR,113,10+I,MID$(STR$(N(I)),2)
  160. 2128 NEXT
  161. 2130 RETURN
  162. 2132 :
  163. 2200 REM *** EINGABE/AENDERN **********
  164. 2202 W$=OT$:W=20:X=20:Y=7:GOSUB7100:OT$=X$
  165. 2204 FORI=1TO12
  166. 2206 W$=MID$(STR$(T(I)),2):W=3:X=69:Y=10+I:GOSUB7100:T(I)=VAL(X$)
  167. 2208 NEXT
  168. 2210 FORI=1TO12
  169. 2212 W$=MID$(STR$(N(I)),2):W=3:X=113:Y=10+I:GOSUB7100:N(I)=VAL(X$)
  170. 2214 NEXT
  171. 2216 SYSPR,2,24,"[211]IND ALLE [193]NGABEN KORREKT"
  172. 2218 GOSUB8030:IFNOTATHEN2202
  173. 2220 RETURN
  174. 2222 :
  175. 2400 REM *** ORT ABSPEICHERN **********
  176. 2402 QQ$(D)=OT$:SV=0
  177. 2404 OPEN2,8,2,OP$
  178. 2406 A$="":FORI=1TO12
  179. 2408 A$=A$+CHR$(50+T(I))+CHR$(N(I)AND255)+CHR$(N(I)/256)
  180. 2410 NEXT
  181. 2412 PRINT#1,"P"+CHR$(2)+CHR$(D)+Z$+Z$
  182. 2414 PRINT#2,A$
  183. 2416 CLOSE2
  184. 2418 RETURN
  185. 2420 :
  186. 3000 REM *** DIAGRAMM *****************
  187. 3002 GOSUB7000
  188. 3004 SYSPR,92,4,"[203]LIMADIAGRAMM ERSTELLEN"
  189. 3006 GOSUB7130:IFD=0THEN1000
  190. 3007 SYSFO
  191. 3008 SYSPR,0,0,OT$+", [203]LIMA"
  192. 3014 FORI=1TO12:R(I)=N(I):IFN(I)>100THENR(I)=100+((N(I)-100)/10)
  193. 3016 NEXT
  194. 3018 T(0)=(T(1)+T(12))/2
  195. 3020 R(0)=(R(1)+R(12))/2
  196. 3022 SYSLI,13,Z-T(0)*2,18,Z-T(1)*2
  197. 3024 SYSLI,13,Z-R(0),18,Z-R(1)
  198. 3026 FORI=2TO12
  199. 3028 SYSLI,8+(I-1)*10,Z-T(I-1)*2,8+I*10,Z-T(I)*2
  200. 3030 SYSLI,8+(I-1)*10,Z-R(I-1),8+I*10,Z-R(I)
  201. 3032 NEXT
  202. 3034 SYSLI,128,Z-T(12)*2,133,Z-T(0)*2
  203. 3036 SYSLI,128,Z-R(12),133,Z-R(0)
  204. 3038 FORI=1TO12
  205. 3040 IFR(I)>T(I)*2THENSYSLI,8+I*10,Z-R(I),8+I*10,Z-T(I)*2:GOTO3046
  206. 3042 IFINT(R(I)/5)=INT(T(I)*2/5)THEN3046
  207. 3044 FORJ=INT(R(I)/5+.5)*5+2.5TO(T(I)*2)-2.5STEP5:SYSPL,8+I*10,Z-J:NEXT
  208. 3046 NEXT
  209. 3048 FORI=2TO12:R=(R(I-1)+R(I))/2:T=T(I-1)+T(I)
  210. 3050 IFR>TTHENSYSLI,3+I*10,Z-R,3+I*10,Z-T:GOTO3056
  211. 3052 IFINT(R/5)=INT(T/5)THEN3056
  212. 3054 FORJ=INT(R/5+.5)*5+2.5TOT-2.5STEP5:SYSPL,3+I*10,Z-J:NEXT
  213. 3056 NEXT
  214. 3058 FORI=1TO11
  215. 3060 DR=(R(I+1)-R(I))/10
  216. 3062 FORJ=0TO9:A=8+I*10+J
  217. 3064 IF(J*DR)+R(I)>100THENSYSLI,A,30,A,130-(INT(J*DR+.5)+R(I))
  218. 3066 NEXT:NEXT
  219. 3068 DR=(R(1)-R(0))/10
  220. 3070 FORJ=5TO9:A=8+J
  221. 3072 IF(J*DR)+R(0)>100THENSYSLI,A,30,A,130-(INT(J*DR+.5)+R(0))
  222. 3074 NEXT
  223. 3076 DR=(R(0)-R(12))/10
  224. 3078 FORJ=0TO5:A=128+J
  225. 3080 IF(J*DR)+R(12)>100THENSYSLI,A,30,A,130-(INT(J*DR+.5)+R(12))
  226. 3082 NEXT
  227. 3084 :
  228. 3200 A=0:TL=50:TH=-50:NL=9999:NH=0
  229. 3202 S1=0:S2=0:FORI=1TO12
  230. 3204 IFN(I)>2*T(I)THENA=A+1
  231. 3206 IFT(I)<TLTHENTL=T(I):T1=I
  232. 3208 IFT(I)>THTHENTH=T(I):T2=I
  233. 3210 IFN(I)<NLTHENNL=N(I):N1=I
  234. 3212 IFN(I)>NHTHENNH=N(I):N2=I
  235. 3214 S1=S1+T(I):S2=S2+N(I)
  236. 3216 NEXT:A=INT(A*100/12)
  237. 3217 IFTL<0THENSYSLI,13,Z,13,Z-TL*2:FORI=ZTOZ-TL*2STEP10:SYSPL,12,I:NEXT
  238. 3218 SYSPR,170,3,"[211]TATISTIK"
  239. 3220 SYSPR,170,5,"[200]UMIDES [203]LIMA:"+STR$(A)+" %"
  240. 3222 SYSPR,170,6,"[193]RRIDES [203]LIMA:"+STR$(100-A)+" %"
  241. 3224 SYSPR,170,7,"[212]EMPERATUREN:"
  242. 3226 SYSPR,170,8,"[205]IN.:"+STR$(TL)+" ("+MO$(T1)+")"
  243. 3228 SYSPR,170,9,"[205]AX.:"+STR$(TH)+" ("+MO$(T2)+")"
  244. 3230 SYSPR,170,10,"[196]URCHSCHNITT:"+STR$(INT(S1/12))
  245. 3232 SYSPR,170,11,"[206]IEDERSCHLAG:"
  246. 3234 SYSPR,170,12,"[205]IN.:"+STR$(NL)+" MM ("+MO$(N1)+")"
  247. 3236 SYSPR,170,13,"[205]AX.:"+STR$(NH)+" MM ("+MO$(N2)+")"
  248. 3238 SYSPR,170,14,"[196]URCHSCHNITT:"+STR$(INT(S2/12))+" MM"
  249. 3240 SYSPR,170,15,"[199]ESAMT:"+STR$(S2)+" MM"
  250. 3242 POKEYA,22:GOSUB8080
  251. 3244 GOTO1000
  252. 3246 :
  253. 7000 REM *** TITEL ********************
  254. 7002 SYSCL
  255. 7004 SYSLI,100,8,220,8
  256. 7006 SYSPR,112,0,"[203]LIMADIAGRAMM 64"
  257. 7008 SYSPR,64,2,"  [215]RITTEN 1986 BY [205]ATTHIAS [203]RIESELL"
  258. 7010 RETURN
  259. 7012 :
  260. 7020 REM *** INDIZIEREN ***************
  261. 7022 GOSUB7000
  262. 7024 SYSPR,107,4,"[196]ISKETTE INDIZIEREN"
  263. 7026 SYSPR,0,7,"[194]ITTE LEGEN [211]IE EINE [196]ATEINDISKETTE IN [204]AUFWERK #0."
  264. 7028 A=9:GOSUB8000
  265. 7030 PRINT#1,"I"
  266. 7032 GOSUB8010:IFATHENRETURN
  267. 7034 OPEN2,8,2,"INDEX,P,R"
  268. 7036 INPUT#2,QQ:IFQQ>0THEN7050
  269. 7038 INPUT#1,A,A$,A1,A2:CLOSE2
  270. 7040 SYSPR,0,12,"[193]CHTUNG !  [197]S SIND NOCH KEINE [203]LIMAWERTE AUF DER"
  271. 7042 SYSPR,0,14,"EINGELEGTEN [196]ISKETTE ABGESPEICHERT."
  272. 7044 SYSPR,0,16,"[215]OLLEN [211]IE EINE ANDERE [196]ISKETTE INDIZIEREN"
  273. 7046 GOSUB8030:IFATHEN7020
  274. 7048 RETURN
  275. 7050 SYSPR,0,12,"[193]NZAHL DER BISHER ERFA\TEN [207]RTE:"+STR$(QQ)
  276. 7052 FORI=1TOQQ:INPUT#2,QQ$(I):NEXT
  277. 7054 CLOSE2:SV=1:RETURN
  278. 7056 :
  279. 7060 REM *** TEST AUF AKTUELL *********
  280. 7062 IFSVTHENRETURN
  281. 7064 A=PEEK(YA)
  282. 7066 SYSPR,0,A+3,"[193]CHTUNG !  [196]IE [201]NDEXDATEI IST NICHT MEHR AKTUELL."
  283. 7068 SYSPR,0,A+5,"[211]OLL SIE AKTUALISIERT WERDEN"
  284. 7070 GOSUB8030:IFNOTATHENRETURN
  285. 7072 :
  286. 7080 REM *** AKTUALISIEREN ************
  287. 7082 A=PEEK(YA)
  288. 7084 SYSPR,0,A+3,"[196]IE [196]ATEI WIRD NUN AKTUALISIERT, BITTE WARTEN [211]IE.
  289. 7086 [158]PR,0,A[170]5,"(STR$ISKETTE IM (null)AUFWERK BELASSEN, SONST STR$ATENVERLUST !!)"
  290. 7088 [152]1,"S0:INDEX":[132]1,A
  291. 7090 [139]QQ[178]0[167][142]
  292. 7092 [159]2,8,2,"INDEX,P,W":[152]2,QQ
  293. 7094 [129]I[178]1[164]QQ:[152]2,QQ$(I):[130]
  294. 7096 [160]2:[142]
  295. 7098 :
  296. 7100 [143] *** EINGABEROUTINE ***********
  297. 7102 X$[178]"":A[178]0:[158]PR,X,Y,C$([171](W[179]5))
  298. 7104 [151]XL,X:[151]XH,[171](X[177]255):[151]YA,Y
  299. 7106 A1[178][194](XL):A2[178][194](XH)
  300. 7108 [151]780,219:[158]CH
  301. 7110 [151]XL,A1:[151]XH,A2
  302. 7112 [161]A$:[139]A$[178]"="[167][139]A[178]0[167][139]W$[179][177]""[167]X$[178]W$:A[178][195](X$):[158]PR,X,Y,X$:[142]
  303. 7114 [139]A$[178]C1$[167][139]A[177]0[167][151]780,32:[158]CH:[142]
  304. 7116 [139]A$[178]C2$[167][139]A[177]0[167]7102
  305. 7118 [139]A$[178][199](34)[176]A[178]W[167]7112
  306. 7120 [139]A$[178]"^"[176]A$[178]"\"[167]7124
  307. 7122 [139]A$[179]" "[176]A$[177]"Z"[167][139]A$[179]"ATN"[176]A$[177]"(null)"[167]7112
  308. 7124 X$[178]X$[170]A$:A[178]A[170]1:[151]780,[198](A$):[158]CH:[137]7106
  309. 7126 :
  310. 7130 [143] *** ORT HOLEN ****************
  311. 7132 [139]QQ[178]0[167]D[178]0:[158]PR,0,7,"(null)EINE (null)RTE ERFA\T.":[137]8000
  312. 7134 [158]PR,0,7,"(null)RT:":W$[178]"":W[178]20:X[178]20:Y[178]7:[141]7100:OT$[178]X$
  313. 7136 D[178]0
  314. 7138 D[178]D[170]1:[139]D[179][178]QQ[167][139]OT$[179][177]QQ$(D)[167]7138
  315. 7140 [139]D[177]QQ[167]D[178]0:[158]PR,0,9,"(null)RT NICHT ERFA\T.":[137]8000
  316. 7142 [159]2,8,2,OP$
  317. 7144 [152]1,"P"[170][199](2)[170][199](D)[170]Z$[170]Z$
  318. 7146 [129]I[178]1[164]12
  319. 7148 [161]#2,A$,B$,C$:T(I)[178][198](A$[170]Z$)[171]50
  320. 7150 N(I)[178][198](B$[170]Z$)[170]256[172][198](C$[170]Z$)
  321. 7152 [130]:[160]2:[142]
  322. 7154 :
  323. 8000 [143] *** "RETURN" *****************
  324. 8002 [158]PR,0,[194](YA)[170]2,"STR$R^CKEN (null)IE [(null)VAL(null)(null)(null)(null)]."
  325. 8004 [161]A$:[139]A$[179][177][199](13)[167]8004
  326. 8006 [142]
  327. 8008 :
  328. 8010 [143] *** FEHLERKANAL LESEN ********
  329. 8012 [132]1,A,A$,A1,A2
  330. 8014 [139]A[178]0[176]A[178]50[167][142]
  331. 8016 B[178][194](YA)
  332. 8018 [158]PR,0,B[170]3,"STR$ISK-VALRROR #"[170][202]([196](A),2)[170]": "[170]A$
  333. 8020 A[178]B[170]5:[137]8000
  334. 8022 :
  335. 8030 [143] *** "JA/NEIN" ****************
  336. 8032 [158]PR,[194](XL)[170]256[172][194](XH),[194](YA)," (MID$/(null)) ?"
  337. 8034 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]8034
  338. 8036 [151]780,[198](A$)[170]32:[158]CH
  339. 8038 A[178](A$[178]"J"):[142]
  340. 8040 :
  341. 8050 [143] *** WAHL *********************
  342. 8052 [158]PR,115,A,"RIGHT$HRE (null)AHL (1-"[170]W$[170]"):"
  343. 8054 [161]A$:[139]A$[179]"1"[176]A$[177]W$[167]8054
  344. 8056 [151]780,[198](A$):[158]CH
  345. 8058 A[178][197](A$) :[142]
  346. 8060 :
  347. 8070 [143] *** "SICHER ?" ***************
  348. 8072 [158]PR,98,A,"(null)IND (null)IE SICHER"
  349. 8074 [137]8030
  350. 8076 :
  351. 8080 [143] *** HARDCOPY *****************
  352. 8082 [158]PR,0,[194](YA)[170]2,"LEFT$ARDCOPY ERSTELLEN"
  353. 8084 [141]8030:[139][168]A[167][142]
  354. 8086 [158]PR,0,[194](YA),C$(0)
  355. 8088 [143] ***********************
  356. 8090 [143] * GGF. HARDCOPYAUFRUF *
  357. 8092 [143] * ABAENDERN. VGL.TEXT *
  358. 8094 [143] ***********************
  359. 8096 [158]36864:[142]
  360. 8098 :
  361. 9000 [143] *** DATEN ********************
  362. 9002 [131] "MID$ANUAR","ASCEBRUAR","(null)@RZ","ATNPRIL","(null)AI","MID$UNI","MID$ULI","ATNUGUST"
  363. 9004 [131] "(null)EPTEMBER","(null)KTOBER","(null)OVEMBER","STR$EZEMBER"
  364. 9006 :
  365.